home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000032.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  14.8 KB  |  908 lines
  1. ;*********************************************************
  2. #load-if-defined BRITON-CIV
  3.  
  4. (defrule
  5.     (goal combat-arm NOTICE)
  6. =>
  7.     (set-goal 13 10)
  8.     (set-goal monk-rating GOOD)
  9.     (disable-self)
  10. )
  11.  
  12. (defrule
  13.     (goal combat-arm NOTICE)
  14. =>
  15.     (generate-random-number 24)
  16.     (set-goal castle-attempt NO)
  17. )
  18.  
  19. (defrule
  20.     (goal combat-arm NOTICE)
  21.     (random-number >= 1)
  22.     (random-number <= 3)
  23. =>
  24.     (set-goal combat-arm INFANTRY)
  25. )
  26.  
  27. (defrule
  28.     (goal combat-arm NOTICE)
  29.     (random-number == 4)
  30. =>
  31.     (set-goal combat-arm LIGHTCAV)
  32. )
  33.  
  34. (defrule
  35.     (goal combat-arm NOTICE)
  36.     (random-number >= 5)
  37.     (random-number <= 7)
  38. =>
  39.     (set-goal combat-arm CAVARCHER)
  40. )
  41.  
  42. (defrule
  43.     (goal combat-arm NOTICE)
  44.     (random-number >= 8)
  45.     (random-number <= 12)
  46. =>
  47.     (set-goal combat-arm ARCHER)
  48. )
  49.  
  50. (defrule
  51.     (goal combat-arm NOTICE)
  52.     (random-number >= 13)
  53. =>
  54.     (set-goal combat-arm UNIQUE)
  55.     (set-goal pre-unique-arm ARCHER)
  56.     (set-goal castle-attempt YES)
  57. )
  58.  
  59. (defrule
  60.     (goal combat-arm UNIQUE)
  61.     (building-type-count castle == 0)
  62.     (not (goal pre-unique-arm ARCHER) )
  63. =>
  64.     (set-goal pre-unique-arm ARCHER)
  65. )
  66.  
  67. #end-if
  68.  
  69. ;*********************************************************
  70. #load-if-defined BYZANTINE-CIV
  71.  
  72. (defrule
  73.     (goal combat-arm NOTICE)
  74. =>
  75.     (set-goal 13 0)
  76.     (set-goal monk-rating GOOD)
  77.     (disable-self)
  78. )
  79.  
  80. (defrule
  81.     (goal combat-arm NOTICE)
  82. =>
  83.     (set-goal castle-attempt NO)
  84.     (generate-random-number 22)
  85. )
  86.  
  87. (defrule
  88.     (goal combat-arm NOTICE)
  89.     (random-number >= 1)
  90.     (random-number <= 3)
  91. =>
  92.     (set-goal combat-arm INFANTRY)
  93. )
  94.  
  95. (defrule
  96.     (goal combat-arm NOTICE)
  97.     (random-number == 4)
  98. =>
  99.     (set-goal combat-arm CAVALRY)
  100. )
  101.  
  102. (defrule
  103.     (goal combat-arm NOTICE)
  104.     (random-number == 5)
  105. =>
  106.     (set-goal combat-arm LIGHTCAV)
  107. )
  108.  
  109. (defrule
  110.     (goal combat-arm NOTICE)
  111.     (random-number >= 6)
  112.     (random-number <= 8)
  113. =>
  114.     (set-goal combat-arm CAVARCHER)
  115. )
  116.  
  117. (defrule
  118.     (goal combat-arm NOTICE)
  119.     (random-number >= 9)
  120.     (random-number <= 11)
  121. =>
  122.     (set-goal combat-arm ARCHER)
  123. )
  124.  
  125. (defrule
  126.     (goal combat-arm NOTICE)
  127.     (random-number >= 12)
  128. =>
  129.     (set-goal combat-arm UNIQUE)
  130.     (set-goal pre-unique-arm CAVALRY)
  131.     (set-goal castle-attempt YES)
  132. )
  133.  
  134. (defrule
  135.     (goal combat-arm UNIQUE)
  136.     (current-age == feudal-age)
  137.     (not (goal pre-unique-arm INFANTRY) )
  138. =>
  139.     (set-goal pre-unique-arm INFANTRY)
  140. )
  141.  
  142. (defrule
  143.     (goal combat-arm UNIQUE)
  144.     (building-type-count castle == 0)
  145.     (current-age >= castle-age)
  146.     (not (goal pre-unique-arm CAVALRY) )
  147. =>
  148.     (set-goal pre-unique-arm CAVALRY)
  149. )
  150.  
  151. #end-if
  152.  
  153. ;*********************************************************
  154. #load-if-defined CELTIC-CIV
  155.  
  156. (defrule
  157.     (goal combat-arm NOTICE)
  158. =>
  159.     (set-goal 13 1)
  160.     (set-goal monk-rating POOR)
  161.     (disable-self)
  162. )
  163.  
  164. (defrule
  165.     (goal combat-arm NOTICE)
  166. =>
  167.     (set-goal castle-attempt NO)
  168.     (generate-random-number 24)
  169. )
  170.  
  171. (defrule
  172.     (goal combat-arm NOTICE)
  173.     (random-number >= 1)
  174.     (random-number <= 5)
  175. =>
  176.     (set-goal combat-arm INFANTRY)
  177. )
  178.  
  179. (defrule
  180.     (goal combat-arm NOTICE)
  181.     (random-number >= 6)
  182.     (random-number <= 8)
  183. =>
  184.     (set-goal combat-arm CAVALRY)
  185. )
  186.  
  187. (defrule
  188.     (goal combat-arm NOTICE)
  189.     (random-number == 9)
  190. =>
  191.     (set-goal combat-arm LIGHTCAV)
  192. )
  193.  
  194. (defrule
  195.     (goal combat-arm NOTICE)
  196.     (random-number >= 10)
  197.     (random-number <= 12)
  198. =>
  199.     (set-goal combat-arm CAVARCHER)
  200. )
  201.  
  202. (defrule
  203.     (goal combat-arm NOTICE)
  204.     (random-number >= 13)
  205. =>
  206.     (set-goal combat-arm UNIQUE)
  207.     (set-goal pre-unique-arm INFANTRY)
  208.     (set-goal castle-attempt YES)
  209. )
  210.  
  211. (defrule
  212.     (goal combat-arm UNIQUE)
  213.     (building-type-count castle == 0)
  214.     (not (goal pre-unique-arm INFANTRY) )
  215. =>
  216.     (set-goal pre-unique-arm INFANTRY)
  217. )
  218.  
  219. #end-if
  220.  
  221. ;*********************************************************
  222. #load-if-defined CHINESE-CIV
  223.  
  224. (defrule
  225.     (goal combat-arm NOTICE)
  226. =>
  227.     (set-goal 13 1)
  228.     (set-goal monk-rating FAIR)
  229.     (disable-self)
  230. )
  231.  
  232. (defrule
  233.     (goal combat-arm NOTICE)
  234. =>
  235.     (set-goal castle-attempt NO)
  236.     (generate-random-number 16)
  237. )
  238.  
  239. (defrule
  240.     (goal combat-arm NOTICE)
  241.     (random-number >= 1)
  242.     (random-number <= 3)
  243. =>
  244.     (set-goal combat-arm INFANTRY)
  245. )
  246.  
  247. (defrule
  248.     (goal combat-arm NOTICE)
  249.     (random-number == 4)
  250. =>
  251.     (set-goal combat-arm LIGHTCAV)
  252. )
  253.  
  254. (defrule
  255.     (goal combat-arm NOTICE)
  256.     (random-number >= 5)
  257.     (random-number <= 7)
  258. =>
  259.     (set-goal combat-arm CAVARCHER)
  260. )
  261.  
  262. (defrule
  263.     (goal combat-arm NOTICE)
  264.     (random-number == 8)
  265. =>
  266.     (set-goal combat-arm ARCHER)
  267. )
  268.  
  269. (defrule
  270.     (goal combat-arm NOTICE)
  271.     (random-number >= 9)
  272. =>
  273.     (set-goal combat-arm UNIQUE)
  274.     (set-goal pre-unique-arm ARCHER)
  275.     (set-goal castle-attempt YES)
  276. )
  277.  
  278. (defrule
  279.     (goal combat-arm UNIQUE)
  280.     (building-type-count castle == 0)
  281.     (not (goal pre-unique-arm ARCHER) )
  282. =>
  283.     (set-goal pre-unique-arm ARCHER)
  284. )
  285.  
  286. #end-if
  287.  
  288. ;*********************************************************
  289. #load-if-defined FRANKISH-CIV
  290.  
  291. (defrule
  292.     (goal combat-arm NOTICE)
  293. =>
  294.     (set-goal 13 0)
  295.     (set-goal monk-rating FAIR)
  296.     (disable-self)
  297. )
  298.  
  299. (defrule
  300.     (goal combat-arm NOTICE)
  301. =>
  302.     (set-goal castle-attempt NO)
  303.     (generate-random-number 22)
  304. )
  305.  
  306. (defrule
  307.     (goal combat-arm NOTICE)
  308.     (random-number == 1)
  309. =>
  310.     (set-goal combat-arm INFANTRY)
  311. )
  312.  
  313. (defrule
  314.     (goal combat-arm NOTICE)
  315.     (random-number >= 2)
  316.     (random-number <= 7)
  317. =>
  318.     (set-goal combat-arm CAVALRY)
  319. )
  320.  
  321. (defrule
  322.     (goal combat-arm NOTICE)
  323.     (random-number == 8)
  324. =>
  325.     (set-goal combat-arm LIGHTCAV)
  326. )
  327.  
  328. (defrule
  329.     (goal combat-arm NOTICE)
  330.     (random-number >= 9)
  331.     (random-number <= 11)
  332. =>
  333.     (set-goal combat-arm CAVARCHER)
  334. )
  335.  
  336. (defrule
  337.     (goal combat-arm NOTICE)
  338.     (random-number >= 12)
  339. =>
  340.     (set-goal combat-arm UNIQUE)
  341.     (set-goal pre-unique-arm INFANTRY)
  342.     (set-goal castle-attempt YES)
  343. )
  344.  
  345. (defrule
  346.     (goal combat-arm UNIQUE)
  347.     (building-type-count castle == 0)
  348.     (not (goal pre-unique-arm INFANTRY) )
  349. =>
  350.     (set-goal pre-unique-arm INFANTRY)
  351. )
  352.  
  353. #end-if
  354.  
  355. ;*********************************************************
  356. #load-if-defined GOTHIC-CIV
  357.  
  358. (defrule
  359.     (goal combat-arm NOTICE)
  360. =>
  361.     (set-goal 13 0)
  362.     (set-goal monk-rating POOR)
  363.     (disable-self)
  364. )
  365.  
  366. (defrule
  367.     (goal combat-arm NOTICE)
  368. =>
  369.     (set-goal castle-attempt NO)
  370.     (generate-random-number 18)
  371. )
  372.  
  373. (defrule
  374.     (goal combat-arm NOTICE)
  375.     (random-number >= 1)
  376.     (random-number <= 5)
  377. =>
  378.     (set-goal combat-arm INFANTRY)
  379. )
  380.  
  381. (defrule
  382.     (goal combat-arm NOTICE)
  383.     (random-number == 6)
  384. =>
  385.     (set-goal combat-arm LIGHTCAV)
  386. )
  387.  
  388. (defrule
  389.     (goal combat-arm NOTICE)
  390.     (random-number >= 7)
  391.     (random-number <= 9)
  392. =>
  393.     (set-goal combat-arm CAVARCHER)
  394. )
  395.  
  396. (defrule
  397.     (goal combat-arm NOTICE)
  398.     (random-number >= 10)
  399. =>
  400.     (set-goal combat-arm UNIQUE)
  401.     (set-goal pre-unique-arm INFANTRY)
  402.     (set-goal castle-attempt YES)
  403. )
  404.  
  405. (defrule
  406.     (goal combat-arm UNIQUE)
  407.     (building-type-count castle == 0)
  408.     (not (goal pre-unique-arm INFANTRY) )
  409. =>
  410.     (set-goal pre-unique-arm INFANTRY)
  411. )
  412.  
  413. (defrule
  414.     (goal wall-build YES)
  415. =>
  416.     (set-goal wall-build NO)
  417. )
  418.  
  419.  
  420. #end-if
  421.  
  422. ;*********************************************************
  423. #load-if-defined JAPANESE-CIV
  424.  
  425. (defrule
  426.     (goal combat-arm NOTICE)
  427. =>
  428.     (set-goal 13 2)
  429.     (set-goal monk-rating GOOD)
  430.     (disable-self)
  431. )
  432.  
  433. (defrule
  434.     (goal combat-arm NOTICE)
  435. =>
  436.     (set-goal castle-attempt NO)
  437.     (generate-random-number 24)
  438. )
  439.  
  440. (defrule
  441.     (goal combat-arm NOTICE)
  442.     (random-number >= 1)
  443.     (random-number <= 5)
  444. =>
  445.     (set-goal combat-arm INFANTRY)
  446. )
  447.  
  448. (defrule
  449.     (goal combat-arm NOTICE)
  450.     (random-number == 6)
  451. =>
  452.     (set-goal combat-arm LIGHTCAV)
  453. )
  454.  
  455. (defrule
  456.     (goal combat-arm NOTICE)
  457.     (random-number >= 7)
  458.     (random-number <= 9)
  459. =>
  460.     (set-goal combat-arm CAVARCHER)
  461. )
  462.  
  463. (defrule
  464.     (goal combat-arm NOTICE)
  465.     (random-number >= 10)
  466.     (random-number <= 12)
  467. =>
  468.     (set-goal combat-arm ARCHER)
  469. )
  470.  
  471. (defrule
  472.     (goal combat-arm NOTICE)
  473.     (random-number >= 13)
  474. =>
  475.     (set-goal combat-arm UNIQUE)
  476.     (set-goal pre-unique-arm INFANTRY)
  477.     (set-goal castle-attempt YES)
  478. )
  479.  
  480. (defrule
  481.     (goal combat-arm UNIQUE)
  482.     (building-type-count castle == 0)
  483.     (not (goal pre-unique-arm INFANTRY) )
  484. =>
  485.     (set-goal pre-unique-arm INFANTRY)
  486. )
  487.  
  488. #end-if
  489.  
  490. ;*********************************************************
  491. #load-if-defined MONGOL-CIV
  492.  
  493. (defrule
  494.     (goal combat-arm NOTICE)
  495. =>
  496.     (set-goal 13 0)
  497.     (set-goal monk-rating POOR)
  498.     (disable-self)
  499. )
  500.  
  501. (defrule
  502.     (goal combat-arm NOTICE)
  503. =>
  504.     (set-goal castle-attempt NO)
  505.     (generate-random-number 32)
  506. )
  507.  
  508. (defrule
  509.     (goal combat-arm NOTICE)
  510.     (random-number >= 1)
  511.     (random-number <= 3)
  512. =>
  513.     (set-goal combat-arm INFANTRY)
  514. )
  515.  
  516. (defrule
  517.     (goal combat-arm NOTICE)
  518.     (random-number >= 4)
  519.     (random-number <= 8)
  520. =>
  521.     (set-goal combat-arm LIGHTCAV)
  522. )
  523.  
  524. (defrule
  525.     (goal combat-arm NOTICE)
  526.     (random-number >= 9)
  527.     (random-number <= 13)
  528. =>
  529.     (set-goal combat-arm CAVARCHER)
  530. )
  531.  
  532. (defrule
  533.     (goal combat-arm NOTICE)
  534.     (random-number >= 14)
  535.     (random-number <= 16)
  536. =>
  537.     (set-goal combat-arm ARCHER)
  538. )
  539.  
  540. (defrule
  541.     (goal combat-arm NOTICE)
  542.     (random-number >= 17)
  543. =>
  544.     (set-goal combat-arm UNIQUE)
  545.     (set-goal castle-attempt YES)
  546. )
  547.  
  548. (defrule
  549.     (goal combat-arm UNIQUE)
  550.     (current-age == feudal-age)
  551.     (not (goal pre-unique-arm ARCHER) )
  552. =>
  553.     (set-goal pre-unique-arm ARCHER)
  554. )
  555.  
  556. (defrule
  557.     (goal combat-arm UNIQUE)
  558.     (current-age >= castle-age)
  559.     (building-type-count castle == 0)
  560.     (not (goal pre-unique-arm CAVARCHER) )
  561. =>
  562.     (set-goal pre-unique-arm CAVARCHER)
  563. )
  564. #end-if
  565.  
  566. ;*********************************************************
  567. #load-if-defined PERSIAN-CIV
  568.  
  569. (defrule
  570.     (goal combat-arm NOTICE)
  571. =>
  572.     (set-goal 13 0)
  573.     (set-goal monk-rating POOR)
  574.     (disable-self)
  575. )
  576.  
  577. (defrule
  578.     (goal combat-arm NOTICE)
  579. =>
  580.     (set-goal castle-attempt NO)
  581.     (generate-random-number 10)
  582. )
  583.  
  584. (defrule
  585.     (goal combat-arm NOTICE)
  586.     (random-number == 1)
  587. =>
  588.     (set-goal combat-arm CAVALRY)
  589. )
  590.  
  591. (defrule
  592.     (goal combat-arm NOTICE)
  593.     (random-number == 2)
  594. =>
  595.     (set-goal combat-arm LIGHTCAV)
  596. )
  597.  
  598. (defrule
  599.     (goal combat-arm NOTICE)
  600.     (random-number >= 3)
  601.     (random-number <= 5)
  602. =>
  603.     (set-goal combat-arm CAVARCHER)
  604. )
  605.  
  606. (defrule
  607.     (goal combat-arm NOTICE)
  608.     (random-number >= 6)
  609. =>
  610.     (set-goal combat-arm UNIQUE)
  611.     (set-goal pre-unique-arm CAVALRY)
  612.     (set-goal castle-attempt YES)
  613. )
  614.  
  615. (defrule
  616.     (goal combat-arm UNIQUE)
  617.     (current-age == feudal-age)
  618.     (not (goal pre-unique-arm INFANTRY) )
  619. =>
  620.     (set-goal pre-unique-arm INFANTRY)
  621. )
  622.  
  623. (defrule
  624.     (goal combat-arm UNIQUE)
  625.     (building-type-count castle == 0)
  626.     (current-age >= castle-age)
  627.     (not (goal pre-unique-arm CAVALRY) )
  628. =>
  629.     (set-goal pre-unique-arm CAVALRY)
  630. )
  631. #end-if
  632.  
  633. ;*********************************************************
  634. #load-if-defined SARACEN-CIV
  635.  
  636. (defrule
  637.     (goal combat-arm NOTICE)
  638. =>
  639.     (set-goal 13 1)
  640.     (set-goal monk-rating GOOD)
  641.     (disable-self)
  642. )
  643.  
  644. (defrule
  645.     (goal combat-arm NOTICE)
  646. =>
  647.     (set-goal castle-attempt NO)
  648.     (generate-random-number 22)
  649. )
  650.  
  651. (defrule
  652.     (goal combat-arm NOTICE)
  653.     (random-number >= 1)
  654.     (random-number <= 3)
  655. =>
  656.     (set-goal combat-arm INFANTRY)
  657. )
  658.  
  659. (defrule
  660.     (goal combat-arm NOTICE)
  661.     (random-number == 4)
  662. =>
  663.     (set-goal combat-arm LIGHTCAV)
  664. )
  665.  
  666. (defrule
  667.     (goal combat-arm NOTICE)
  668.     (random-number >= 5)
  669.     (random-number <= 11)
  670. =>
  671.     (set-goal combat-arm CAVARCHER)
  672. )
  673.  
  674. (defrule
  675.     (goal combat-arm NOTICE)
  676.     (random-number >= 12)
  677. =>
  678.     (set-goal combat-arm UNIQUE)
  679.     (set-goal pre-unique-arm CAVALRY)
  680.     (set-goal castle-attempt YES)
  681. )
  682.  
  683. (defrule
  684.     (goal combat-arm UNIQUE)
  685.     (current-age == feudal-age)
  686.     (not (goal pre-unique-arm INFANTRY) )
  687. =>
  688.     (set-goal pre-unique-arm INFANTRY)
  689. )
  690.  
  691. (defrule
  692.     (goal combat-arm UNIQUE)
  693.     (building-type-count castle == 0)
  694.     (current-age >= castle-age)
  695.     (not (goal pre-unique-arm CAVALRY) )
  696. =>
  697.     (set-goal pre-unique-arm CAVALRY)
  698. )
  699. #end-if
  700.  
  701. ;*********************************************************
  702. #load-if-defined TEUTONIC-CIV
  703.  
  704. (defrule
  705.     (goal combat-arm NOTICE)
  706. =>
  707.     (set-goal 13 0)
  708.     (set-goal monk-rating GOOD)
  709.     (disable-self)
  710. )
  711.  
  712. (defrule
  713.     (goal combat-arm NOTICE)
  714. =>
  715.     (set-goal castle-attempt NO)
  716.     (generate-random-number 8)
  717. )
  718.  
  719. (defrule
  720.     (goal combat-arm NOTICE)
  721.     (random-number == 1)
  722. =>
  723.     (set-goal combat-arm INFANTRY)
  724. )
  725.  
  726. (defrule
  727.     (goal combat-arm NOTICE)
  728.     (random-number >= 2)
  729.     (random-number <= 4)
  730. =>
  731.     (set-goal combat-arm CAVALRY)
  732. )
  733.  
  734. (defrule
  735.     (goal combat-arm NOTICE)
  736.     (random-number >= 5)
  737. =>
  738.     (set-goal combat-arm UNIQUE)
  739.     (set-goal pre-unique-arm INFANTRY)
  740.     (set-goal castle-attempt YES)
  741. )
  742.  
  743. (defrule
  744.     (goal combat-arm UNIQUE)
  745.     (building-type-count castle == 0)
  746.     (not (goal pre-unique-arm INFANTRY) )
  747. =>
  748.     (set-goal pre-unique-arm INFANTRY)
  749. )
  750.  
  751. #end-if
  752.  
  753. ;*********************************************************
  754. #load-if-defined TURKISH-CIV
  755.  
  756. (defrule
  757.     (goal combat-arm NOTICE)
  758. =>
  759.     (set-goal 13 1)
  760.     (set-goal monk-rating FAIR)
  761.     (disable-self)
  762. )
  763.  
  764. (defrule
  765.     (goal combat-arm NOTICE)
  766. =>
  767.     (set-goal castle-attempt NO)
  768.     (generate-random-number 28)
  769. )
  770.  
  771. (defrule
  772.     (goal combat-arm NOTICE)
  773.     (random-number >= 1)
  774.     (random-number <= 3)
  775. =>
  776.     (set-goal combat-arm INFANTRY)
  777. )
  778.  
  779. (defrule
  780.     (goal combat-arm NOTICE)
  781.     (random-number >= 4)
  782.     (random-number <= 8)
  783. =>
  784.     (set-goal combat-arm LIGHTCAV)
  785. )
  786.  
  787. (defrule
  788.     (goal combat-arm NOTICE)
  789.     (random-number >= 9)
  790.     (random-number <= 11)
  791. =>
  792.     (set-goal combat-arm CAVARCHER)
  793. )
  794.  
  795. (defrule
  796.     (goal combat-arm NOTICE)
  797.     (random-number >= 12)
  798.     (random-number <= 14)
  799. =>
  800.     (set-goal combat-arm ARCHER)
  801. )
  802.  
  803. (defrule
  804.     (goal combat-arm NOTICE)
  805.     (random-number >= 15)
  806. =>
  807.     (set-goal combat-arm UNIQUE)
  808.     (set-goal pre-unique-arm ARCHER)
  809.     (set-goal castle-attempt YES)
  810. )
  811.  
  812. (defrule
  813.     (goal combat-arm UNIQUE)
  814.     (building-type-count castle == 0)
  815.     (not (goal pre-unique-arm ARCHER) )
  816. =>
  817.     (set-goal pre-unique-arm ARCHER)
  818. )
  819.  
  820. #end-if
  821.  
  822. ;*********************************************************
  823. #load-if-defined VIKING-CIV
  824.  
  825. (defrule
  826.     (goal combat-arm NOTICE)
  827. =>
  828.     (set-goal 13 3)
  829.     (set-goal monk-rating POOR)
  830.     (disable-self)
  831. )
  832.  
  833. (defrule
  834.     (goal combat-arm NOTICE)
  835. =>
  836.     (set-goal castle-attempt NO)
  837.     (generate-random-number 18)
  838. )
  839.  
  840. (defrule
  841.     (goal combat-arm NOTICE)
  842.     (random-number >= 1)
  843.     (random-number <= 5)
  844. =>
  845.     (set-goal combat-arm INFANTRY)
  846. )
  847.  
  848. (defrule
  849.     (goal combat-arm NOTICE)
  850.     (random-number == 6)
  851. =>
  852.     (set-goal combat-arm LIGHTCAV)
  853. )
  854.  
  855. (defrule
  856.     (goal combat-arm NOTICE)
  857.     (random-number >= 7)
  858.     (random-number <= 9)
  859. =>
  860.     (set-goal combat-arm ARCHER)
  861. )
  862.  
  863. (defrule
  864.     (goal combat-arm NOTICE)
  865.     (random-number >= 10)
  866. =>
  867.     (set-goal combat-arm UNIQUE)
  868.     (set-goal pre-unique-arm INFANTRY)
  869.     (set-goal castle-attempt YES)
  870. )
  871.  
  872. (defrule
  873.     (goal combat-arm UNIQUE)
  874.     (building-type-count castle == 0)
  875.     (not (goal pre-unique-arm INFANTRY) )
  876. =>
  877.     (set-goal pre-unique-arm INFANTRY)
  878. )
  879.  
  880. (defrule
  881.     (goal castle-attempt NO)
  882.     (or
  883.         (goal sea-owner YES)
  884.         (nor
  885.             (player-in-game any-computer-ally)
  886.             (or
  887.                 (player-in-game any-human-ally)
  888.                 (goal 1 0)
  889.             )
  890.         )
  891.     )
  892. =>
  893.     (set-goal castle-attempt YES)
  894. )
  895.  
  896. #end-if
  897.  
  898. (defrule
  899.     (goal combat-arm UNIQUE)
  900.     (current-age >= castle-age)
  901.     (building-type-count castle > 0)
  902.     (not (goal pre-unique-arm NO) )
  903. =>
  904.     (set-goal pre-unique-arm NO)
  905. )
  906.  
  907.  
  908.